home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / Tools / Useful / potgo.e < prev    next >
Text File  |  1995-09-04  |  434b  |  23 lines
  1. OPT MODULE
  2.  
  3. EXPORT DEF potgobase
  4.  
  5. EXPORT PROC allocPotBits(bits)
  6.   MOVE.L bits, D0
  7.   MOVE.L potgobase, A6
  8.   JSR -6(A6)  -> Offset of real AllocPotBits
  9. ENDPROC D0
  10.  
  11. EXPORT PROC freePotBits(bits)
  12.   MOVE.L bits, D0
  13.   MOVE.L potgobase, A6
  14.   JSR -12(A6)  -> Offset of real FreePotBits
  15. ENDPROC
  16.  
  17. EXPORT PROC writePotgo(word, mask)
  18.   MOVE.L word, D0
  19.   MOVE.L mask, D1
  20.   MOVE.L potgobase, A6
  21.   JSR -18(A6)  -> Offset of real WritePotgo
  22. ENDPROC
  23.